home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Xenosoft 2
/
Xenosoft 2 (Game collection)(1994).iso
/
bioforge
/
script
/
tubes.scp
< prev
next >
Wrap
Text File
|
1994-11-26
|
8KB
|
345 lines
{ LEAVETUBEROOM
P ~ÇÇ
B `Ç▓
// COMMENTED FOLLOWING OUT FOR STASIS REASONS. CALLING CODE MUST PUT
// LEX IN STASIS INSTEAD. - BAR
// AI OFF
// ENTER TUBE MOTION
u CURFIG OFF
M ENTER_GRAV FREEZE
// LEAVETUBEROOMANIMATION
// WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
// WP 1->3 THEN WP 2->4
~ÇÇ = @Çì GLOAWAYFROMTUBEROOM
// SECTION 1 - COMING
C TUB1
//CAMERAAUTOACTIVATE ZEG OFF
G TUBE_WP1
£ TUBE_WP3
//SUSPENDWHILE @FIRE ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
@Ç╢ ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
:SFX1
â
I @Ç▒ (CURFIG TUBE_WP2) <= 150 THEN @Çå (`Ç▓ , 200, 2048)
E J #Çü
W 10
// SECTION 2 - GOING
C TUB2
G TUBE_WP2
£ TUBE_WP4
@Çå (`Ç▓ , 200, 2048)
@Ç╢ ZIPPY TUBE_WP2 TUBE_WP4 20 0 0 0 CARRY CURFIG
u CURFIG ON
~ÇÇ
C UNLOCK
A ON
}
{ GRENADELEAVETUBEROOM
P ~ÇÇ
P ~Çü
A OFF
B `Ç▓
// ENTER TUBE MOTION
u CURITEM OFF
// LEAVETUBEROOMANIMATION
// WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
// WP 1->3 THEN WP 2->4
~ÇÇ = @Çì GLOAWAYFROMTUBEROOM
// SECTION 1 - COMING
C TUB1
f WAYPT TUBE_WP1
~Çü = @Ç╢ ZIPPY GREN_WP1 GREN_WP3 20 0 0 0 CARRY CURITEM
// DON'T LET THE GRENADE BLOW UP OFF SCREEN (THE PLAYER WON'T KNOW WHAT
// HAPPENED) -BES
ÿ ^ìé
W 2 SECONDS
// OKAY, THE GRENADE SHOULD BE ON SCREEN NOW, SO LET'S RESTART ITS TIMER -BES
Ö ^ìé
// WAIT TO RUN SOUND EFFECT
:SFX1
â
// IF THE GRENADE'S BLOWN UP, THEN SKIP THIS
I @Çó (^ìé ) = $Ç╗ THEN J #Çä
I @Ç▒ (CURITEM GREN_WP3) <= 100 THEN @Çå (`Ç▓ , 255, -1024)
E J #Çâ
:SKIP_SFX
// WAIT TILL WE GET TO WAYPOINT
~Çü
// MAKE SURE IT DIDN'T BLOW UP ON TRANSIT
I @ÇÜ (GRENADE) = $Ç╗ THEN
J #Çå
// SECTION 2 - GOING
C TUB2
f WAYPT GREN_WP2
~Çü = @Ç╢ ZIPPY GREN_WP2 GREN_WP4 20 0 0 0 CARRY CURITEM
ÿ ^ìé
W 10
Ö ^ìé
// DON'T LET THE GRENADE BLOW UP IF ITS OUT OF SIGHT (THE PLAYER WILL
// HAVE NO CLUE OF WHAT HAPPENED) -BES
W 1 SECOND
^ìé
:SFX2
â
I @Ç▒ (CURITEM GREN_WP4) <= 100 THEN @Çå (`Ç▓ , 255, -1024)
E J #Çà
~Çü
I @ÇÜ (GRENADE) THEN
u CURITEM ON
:LEAVE
~ÇÇ
C UNLOCK
A ON
}
{ TUBETOTMPVSGRENADE
P ~ÇÇ
P ~Çü
P ~Çé
P ~Çâ
A OFF
B `Ç▓
// ENTER TUBE MOTION
u CURFIG OFF
M ENTER_GRAV FREEZE
I @ÇÜ (GRENADE) = $Ç╗ THEN
e GRENADE
E
^ìé
// DON'T LET ANYTHING INTERFERE WITH WHAT WE'RE DOING
^ìà
// SHOW MARINE TOSSING GRENADE DOWN
C TMP1
I @Ç¢ (TMP_MAR_2) = $Ç╗ THEN
{
Q "Can't find Tmp_Mar_2!" // DO NOT TRANSLATE
é
}
A OFF
o
£ TUBE
M REMOVE_BATT
ñ CURITEM
u CURITEM ON
f RTHAND
// THROW THE GRENADE
M GRENADE_TOSS
~Çé = @üé (CURITEM)
~Çâ = @üâ (CURITEM)
// WAIT FOR GRENADE TO HIT TUBE
:TOP
â
I @üé (CURITEM) == ~Çé AND @üâ (CURITEM) == ~Çâ THEN
J #Çê
ñ CURITEM
@Ç¢ PLAYER
u CURITEM OFF
// LEAVETUBEROOMANIMATION
// WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
// WP 1->3 THEN WP 2->4
~ÇÇ = @Çì GLOAWAYFROMTUBEROOM
// SECTION 1 - COMING
C TUB1
G TUBE_WP1
£ TUBE_WP3
//SUSPENDWHILE @FIRE ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
~Çü = @Ç╢ ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
:SFX1
â
I @Ç▒ (CURFIG TUBE_WP3) <= 200 THEN @Çå (`Ç▓ , 200, 2048)
E J #Çë
~Çü
// GET RID OF THE PLAYER
@Ç¢ PLAYER
G TO_TMPL
// SECTION 2 - COMING
~ÇÇ
~ÇÇ = @Çì GLOTWORDTUBEROOM
C TUB2
f WAYPT GREN_WP4
//SUSPENDWHILE @FIRE ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURITEM
@Ç╢ ZIPPY GREN_WP4 GREN_WP2 20 0 0 0 CARRY CURITEM
:SFX2
â
I @Ç▒ (CURITEM GREN_WP2) <= 200 THEN @Çå (`Ç▓ , 255, -1024)
E J #Çè
// SHOW EXPLOSION
// MAKE SURE WE CAN HERE WHAT'S GOING ON
d
@Çå ( `Çó )
Ü 10 10 10 5
â
Ü 20 20 20 5
â
Ü 30 30 30 5
â
@Çå ( `ÇÑ )
Ü 40 40 40 5
â
Ü 50 50 50 5
â
Ü 60 60 60 5
â
Ü 64 64 64 5
//COLLISIONS CURFIG ON
//KILLPROCESS _PROCESS_HANDLE
//CAMERA UNLOCK
@Ç¥ KILLLEX
}
{ GLOAWAYFROMTUBEROOM
^é╜ = 0
:LOOP
W 05
^é╜ ++
I (^é╜ > $âò ) THEN
^é╜ = 0
J #Çî
}
{ ENTERTUBEROOM _NO_ENTER_MOTION
P ~Çü
// COMMENTED FOLLOWING OUT SINCE IT IS CAUSING STASIS BUGS. FORCE ALL
// CALLING CODE ROUTINES TO ALREADY TURN AI OFF. - BAR
// AI OFF
B `Ç▓
// ENTER TUBE MOTION
u CURFIG OFF
o // IN CASE CONFLICT WITH STARTING NEW ONE
I ~ÇÇ THEN
{
M ENTER_GRAV FREEZE SNAP_TO CONTINUE
}
E
{
â
M ENTER_GRAV FREEZE
}
// LEAVETUBEROOMANIMATION
// WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
// WP 1->3 THEN WP 2->4
~Çü = @Çì GLOTWORDTUBEROOM
// SECTION 2 - COMING
C TUB2
G TUBE_WP4
£ TUBE_WP2
//SUSPENDWHILE @FIRE ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURFIG
@Ç╢ ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURFIG
:SFX1
â
I @Ç▒ (CURFIG TUBE_WP2) <= 200 THEN @Çå (`Ç▓ , 200, 2048)
E J #ÇÄ
// SECTION 1 - GOING
C TUB1
G TUBE_WP3
£ TUBE_WP1
@Çå (`Ç▓ , 200, 2048)
@Ç╢ ZIPPY TUBE_WP3 TUBE_WP1 20 0 0 0 CARRY CURFIG
u CURFIG ON
~Çü
C UNLOCK
}
{ GRENADEENTERTUBEROOM
P ~ÇÇ
// ENTER TUBE MOTION
u CURITEM OFF
B `Ç▓
// LEAVETUBEROOMANIMATION
// WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
// WP 1->3 THEN WP 2->4
~ÇÇ = @Çì GLOTWORDTUBEROOM
// SECTION 2 - COMING
C TUB2
f WAYPT GREN_WP4
//SUSPENDWHILE @FIRE ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURITEM
@Ç╢ ZIPPY GREN_WP4 GREN_WP2 20 0 0 0 CARRY CURITEM
:SFX1
â
I @Ç▒ (CURITEM GREN_WP2) <= 200 THEN @Çå (`Ç▓ , 255, -1024)
E J #ÇÉ
// SECTION 1 - GOING
C TUB1
f WAYPT GREN_WP3
@Çå (`Ç▓ , 255, -1024)
@Ç╢ ZIPPY GREN_WP3 GREN_WP1 20 0 0 0 CARRY CURITEM
u CURITEM ON
~ÇÇ
C UNLOCK
}
{ GLOTWORDTUBEROOM
^é╜ = $âò
:LOOP
W 05
^é╜ --
I (^é╜ < 0) THEN
^é╜ = 0
J #ÇÆ
}
//$ 26 - version number